home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / prlbkxmp.lha / ch5 / enum.eg < prev    next >
Text File  |  1991-01-08  |  334b  |  20 lines
  1. sub enum {
  2.     local($_) = @_;
  3.     local(@specs) = split(/,/);
  4.     local($val);
  5.     for (@specs) {
  6.     if (/=/) {
  7.         $val = eval $_;
  8.     } else {
  9.         eval $_ . ' = ++$val';
  10.     }
  11.     }
  12. }
  13.  
  14. &enum(<<'EOL');
  15.     $RED, $GREEN, $BLUE,
  16.     $CYAN='a', $MAGENTA, $YELLOW,
  17.     $BLACK=-1
  18. EOL
  19. print "$RED $GREEN $BLUE $CYAN $MAGENTA $YELLOW $BLACK\n";
  20.